﻿Public Class InformacionFinanciera
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

#Region "Custom Methods"
    Private Sub CargarInformacionFinanciera()
        Dim cliente As New ClienteBL()
        gvCuentas.DataSource = cliente.InformacionFinanciera(txtdni.Text).Tables("dtCuentas")
        gvCuentas.DataBind()

        gvcreditos.DataSource = cliente.InformacionFinanciera(txtdni.Text).Tables("dtCreditos")
        gvcreditos.DataBind()
    End Sub

    Private Sub CargarInformacionCliente()
        Dim cliente As New ClienteBL()
        Dim dt As DataTable = cliente.ClientexDni(txtdni.Text).Tables("dtCliente")

        If dt.Rows.Count > 0 Then
            lblnombres.Text = dt.Rows(0).Item("nombres")
            lblapellidos.Text = dt.Rows(0).Item("apellidos")
            lblsueldo.Text = dt.Rows(0).Item("sueldo")
            lblmoneda.Text = dt.Rows(0).Item("moneda")
            lbldireccion.Text = dt.Rows(0).Item("direccion")
            lbledad.Text = dt.Rows(0).Item("edad")

            CargarInformacionFinanciera()
            tdatoscliente.Visible = True
        Else
            ScriptManager.RegisterClientScriptBlock(Me, GetType(String), "mensaje", "alert('Cliente no existe')", True)
            gvCuentas.DataSource = Nothing
            gvCuentas.DataBind()
            gvcreditos.DataSource = Nothing
            gvcreditos.DataBind()
            tdatoscliente.Visible = False

        End If
        
    End Sub
#End Region

    Protected Sub btnbuscar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnbuscar.Click
        CargarInformacionCliente()
    End Sub
End Class